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Facility: RMS32 Index Sequential File Organization 
Abstract: 
$00 This modules contains the routines to handle compressed buckets 
4 and compressed records. 
000 Environment: VAX/VMS Operating System 
$00 Author: Todd M. Katz Creation Date: 13-Aug-1982 
009 Modified By: 
000 v03-008 TMK0006 Todd M. Katz 03-Feb-1983 


Add support for Recovery Unit Journalling and RU ROLLBACK 
Recovery of ISAM files. This involves a change to RMSSRCH_CMPR. 
Check both for IRCSV_DELETED and IRC$V_RU_DELETED before setting 
the IRB$V_DUPS_SEEN flag. Previously, Just IRCSV_DELETED was 
being checked. 


v03-007 TMKO00S Todd M. Katz 16-Sep-1982 ; 
The field IRBSB_SRCHFLAGS has been changed to a word in size. 
Fix all the references to it. 


If a record is encountered with a es that is an exact duplicate 
of the search key, then set the bit IRBSV_DUP_KEY regere\ess 
of whether the record is or isn't marked deleted if RMS is 
currently positioning for insertion. 
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mance enhancement. RMS does not have to call 

NEXT_REC to position to the next record in the bucket. 

s is an index record, then the address of the next record 
ADDR + current key size + 2 for compression overhead. 
this is anyother type of record, (primary data or SIDR) then 
RMS knows that the record size field makes up the last two bytes 
of the record overhead and can use the quantity there + the 
record overhead to posit on to the next record. 


SE 
SE 
en 
E 
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At the present time, RMS positions past deleted records even 
when the search would otherwise be terminated because of the 
key value of the current record, the search key value, and the 
goal of the search. This is incorrect, and inconsistant with the 
manner in which the rest of the searching is performed. It 
creates problems during next record posi —_ which always 
tries to first position to the current record before positioning 
to the next record, and thus, could end up positioning past a 
stream'’s internal current record because its marked deleted, and 
therefore wrongly assume that the record had been completely 
deleted from the file. The solution to this problem is to return 
the record that the search terminates at regardless of whether 
the record is or isn't marked deleted, and to let the upper 
ok ee mast decide what to do if the record is in fact marked 
eleted. 


At the present time, RMSSRCH_CMPR always starts its search with 
the first record in the current bucket. This is unacceptable 
because of the above made change - ie, searches may now 
terminate with deleted records, and thus, may have to resume 
positioning somewhere within the bucket in order to find a 
non-deleted record. Fortunately, this change is easy to make 
provided several assumptions hold: 


1. The goal of the search does not change between invocations 
of RASSRCH_CMPR. 


2. The search key does not change between invocations of 
RMSSRCH_CMPR. 


2. The bucket being searched is kept locked between invocations 
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3 of this routine. 

100 3. The keys are always in ascending order in the bucket, and the 

! 1 compression of these keys are always correct. 

1 g If these assumptions hold true, then it will always possible to 
000 104 resume the search in the middle of a bucket, and return whether 
000 105 the next record has 0 hey value equal to (if the goal of the 
000 106 search is EQ) or GT (if the goal of the search is GT or EQ) the 
3 : search key. 
000 109 v03-006 KBT0159_ Keith B. Thompson 21-Aug-1982 
3 : ! 9 Reorganize psects 
000 1 § V03-005 TMK0004 Todd M. Katz 13-Aug-1982 
000 «(1 Completely re-wrote the routine responsible for searching | 
000 114 compressed buckets, and the routine responsible for determining 
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the amount of front compression of records. 


2 £ 

: : Added support for prologue 3 SIDRs to both the compressed key 
5 : bucket searching routine and the front compression determining 
: routine. 
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FUNCTIONAL DESCRIPTION: 
This routine performs an equal search or a greater-than search on a 
primary data, SIDR, or index bucket with compressed key records peter 
the search key found in heyy! ter 2. The search may start with the first 


record in the bucket, or with a record somewhere in the middle of the 


bucket. When the search is completed, REC_ADDR is positioned to the 
record to be returned, and RO contains the status of the search. 


This routine makes some basic assumptions which can not be violated 
without expecting totally unpredicatble search results. 


1. It is assumed that the git of the records in the bucket are strictly 
in ascending order, and that they are always as fully compressed 
as they can be for the position they occupy. 


2. The two key compression bytes always follow whatever record overhead 
is present in the record (if a oo repecesess of the bucket type. The 
first key compression byte is always the number of bytes of key 
present, and the second key compression byte is always the amount of 
front compression of the key. 


3 3. Record overhead is a fixed quantity for each record type.. . 

: Furthermore, if a record has record overhead associated with it, the 
3 record's size minus the record overhead is always stored in the last 
3 two bytes of record overhead. 


4. eneneett RMS is positioning for insertion it performs a greater-than 
search. 


5. The decision to terminate a search is based on the goal of the search 
and the outcome of the comparison between the key of the record bein 
returned and the search ney It is never based on anything else abou 
the record, for example, whether the record is marked deleted or not. 


6. If this routine is called to resume a search within a bucket then: 


pole lolelelelejelelelealaleleleleleleleleoleloleleleleoleleleleoleolel ol olel ole a) allele) 


a. The bucket has been locked between routine invocations, 
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0 b. IRABLIRBSL_LST_NCMP] still points to the last record with a zero 
0 front-compressed key. | Aa)" : ; 

0 c. The goal of all consecutive routine invocations is identical 
0 (either €Q or GT). : : 

8 d. The search key has not changed between routine invocations. 
8 ; CALLING SEQUENCE: 

8 BSBW RMS$SRCH_CMPR 

; INPUT PARAMETERS: 

3 R1 - if 0, greater-than or equal search 

3 if 1, greater-than search 

00 IMPLICIT INPUT: 
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=SEP=19 
SEP=19 
RS - BKT_ADDR 
BKTS$W_FREESP 
BKT$B~ INDEXN 
BKTSB-LEVEL 
R6 - REC_ADDR 
R7 - IDX_DFN 
R9 - IRAB 
IRBSL_KEYBUF 
IRBSB_KEYSZ 
IRBSV~LAST_G 
IRB$V~POSINS 
IRBSW”SRCHFL 


> 

o 

m 
eeoe 


St NUSUSES ROSE ase 


address of bucket 
offset to first free 
key of reference of 
level of bucket 


=i 
-00 Page | 
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byte in bucket | 
bucket 


address 


address 


address 
address 
size of 
if set, 
if set, 
search 


of where to begin search 
of index descriptor 


of IRAB 

of contigious keybuffers 
the search key 

GT search result ocurred 


pth enantiy for insertion 
flags 


R10 > | 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUT: 
IRBS$V_DUP_KEY 


the search key. 
IRB$V_DUPS_SEEN f set, there is at least one primar 
a key identical to that of the searc y 
IRB$V_LAST_GT if set, the result of this search was that the search 
key was less than the record positioned to, 
IRB$L_LST_NCMP address of Last key with no front compression , 
IRBSL_LST_RE address of last primary data record in duplicate chain 
IRB$L_REC_COUNT = number of the record found 
REC_ABDR address of record found 
ROUTINE VALUE: 
RO: <1, search key < record found 
0, search key = record found. 
1, search key > all records in the bucket 
SIDE EFFECTS: 


AB 
IFBSW_KBUF SZ 


if set, there is at least one data record in the file 
(deleted or otherwise) with a key identical to that of 
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If po 
with a key value duplicate 


encountered, IRBSV_DUP_KEY is set, IRBS$V_DUPS_SEEN is set (provided 


the record is not marked deleted). and the address of the record is 
placed in IRBSL_LST_REC. In fact at the conclusion of the search, this 


same field will”contain the address of the last such duplicate 
encountered while REC_ADDR points to the record that follows it which 


is where the new record wi 


SIDR bucket, then there can only be one instance of a record with a 


given key value in a bucke 


address of IFAB 
size of each keybuff 


sitioning for insertion within a primary data bucket, and a record 


of the key of the record to 


be inserted. Of course, i 
a 


er 


y data record with 
key. 


be inserted is 


f the bucket is a 


Whenever the search key is greater that the key of all the records in 
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the bucket, then REC_ADDR is left positioned at the end of the bucket 
when this status is returned. This is independent of bucket type. 
$SRCH Sealy 
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#*M<R1,R2,R3,R4,R8,R11> ; save the working registers 
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Register Usage: 


poelelelelo) 
OOOO 


RO = Result of the comparison between the search key and the ‘last’ record. 


oo 


oOo 


R1 = Set to the type of bucket for determining the amount of record overhead. | 


5 
4 3 H 
4 60 ; 
4 ol ¢ 
0004 6 : 
ae 
004 65 : - Number of bytes of search key and record key to be compared. 
Boe 6 3 - Scratch register. “ ' : 
| 0004 68 : R2 = Offset in the search key to the byte where the comparison between the 
| 8888 $3 ; search key and the key of the ‘'current’’ record is to begin. 
| 0004 271 ; R3 = Working register for CMPC3 and CMPC5. _ 
i i 5 Working register during next record positioning. 
Bebe ee : R4 = Number of bytes of record overhead, not including key compression bytes. 
Bone 278 : RS = Address of the beginning of the bucket in memory. 
9004 378 : R6 = Address in memory of the current record in the bucket. 
bod seo : R7 = Address of the index descriptor. 
0004 seg : RB = Address in memory of the first free byte in the bucket. Effectively the 
0004 283 ; address of the end of the bucket. 
0004 284 ; 
0004 $82 ; RY = Address of the IRAB. 
0004 86 ; 
0004 287 ; R10 = Address of the IFAB. 
0004 288 ; . 
Bone $85 ; R11 - Address of keybuffer 2. Effectively the address of the search key. 
0004 291 ° 
58 04 A5 3C 0004 $36 MOVZWL BKTS$W_FREESPACE(RS5),R8 ; compute the address of the first free 
3 3% i $37 ADDL2 = R5,R8 ; byte in the bucket, and put it in R8& 
58 56 01 O00B 295 CMPL R6,R8 3; if the bucket is empty, return a GT 
oh oe | 43 296 BLSSU 1$ ; status (primary data or SIDR buckets) 
0136 = 31 id 44 BRW 140$ 3 otherwise continue 
51 OC AS 9A 0013 99 1$: MOVZBL BKTS$B_LEVEL(R5),R1 ; if this is an index bucket, then as 
04 #13 0017 00 BEQLU 5% : index records do not contain any 
54 D4 pai3 4 CLRL RS 3; overhead intialize R4 to 0, and skip 
2B SC«i#dt one 8S BRB 15$ 3; call to determine record overhead 
01 AS 95 001D 04 5$ TSTB BKT$B_INDEXNO(RS) : if this is a primary data bucket | 
03 13 0020 305 BEQLU 108 > setup R1 with a 0, else it is a SIDR 
51 O11 CE 8 ¢ 8 MNEGL #1,R1 3; bucket and a -1 is placed in Ri 
FFD8* 30 $0 5 08 10$: BSBW RMSREC_OVHD ; determine the amount of overhead in 
54 50 00 8p : ° MOVL RO,R4 3 each record and store it in R4 
oo eo ee 0 ° 1} ADDL3 M#BKTSC_OVERHDSZ,R5,R1 ; get address of first record in bucket 
O87 ee OF F 18 CMPL R1,R6 : if RMS is to start search with first 
14 13 0032 14 BEQLU «15 3: record, then go start search | 
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RMS is resuaing a search. and not starting with the first record in the 
bucket. The rules for resuming a search are as follows: 


1. If the goal of the search is GT, then as the previous record must have 
been GT the search key, so must the current record. Therefore the search 
can immediately terminate with this status. 


2. If the goal of the search is EQ, then if the number of bytes the current 
record's key is front compression is equal to or exceeds the size of the 
search key, then the current record and the search key must also be EQ. 
Therefore, such a status can be immediately returned. 


3. If the goal of the search is EQ, but the number of bytes the current 
record's key is front compressed is less than the size of the search key, 
then the current record's key must be greater than the search key, and 
such a status maybe immediately returned. 


BBC #IRB$V_LAST_GT,- :; if the result of the Last routine 
IRB$W_SRCHFCAGS(R9),12$ ; invocation was LT, then so is the 
118: BRW 90$ 3; result of this contigious invocation 
12$: CMPB 1(R6)CR4IJ,- ; determine whether the key of the 
IRB$B_KEYSZ(R9) 3; current record is equal to or 
BLSSU _11$ ; greater than the search key and 
13$: BRW 110$ 3; return the appropriate status 


: RMS is to start the search with the first record in the bucket. 


15$: CSB #IRBSV_LAST_GT,- ; if the search is starting with the 
IRB$W_SRCHFCAGS(R9) : first record in the bucket then there 
; is no previous context 
MOVL R6,IRBSL_LST_NCMP(R9) ; the first non-compressed record 


MOVZWL IFB$W_KBUFSZ(R10),R11 3 compute the address of keybuffer 2 
ADDL2 IRBSL_KEYBUF(R9),R11 3; and place it in R11 


CLRL IRB$L_REC_COUNT(R9) ; RMS is positioned to the first record 
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Ost 359 | 
SF 60 ; 
| QoF 61 ; The only time it is ever necessary to compare the -y of the current record 
OSF 66 3 with the search key is when the number of bytes the key of the current record 
OOSF 635 ; is compressed is the same as the offset to the character in the search key 
OOSF 64 ; which terminated key comparison the last time it was done. The comparison is 
OO5F 65 ; now done to see whether this previous comparison Seraingttng character (and 
OO5F 66 ; paot Sei tery the rest that follow it in the search key) is still greater then 
Baer of ; its opposite in the key of the new current record. 
| OO5F 69 ; The comparison starts in the search key with the character that had previously 
OO5F 70 ; terminated such a comparison, and the number of bytes of key to be compared 
OO5F 71 ; is the minimum of the number of bytes thus remaining in the search. key and the 
Oper ug ; number of bytes in the key of the current record. 
OO5F 74 ; Note that this strategy guarentees that a comparison is always done between 
beer ie ; the search key and the key of the first record in the bucket. 
OOSF 77 
52. D4 Byae $8 CLRL R2 :; initialize the search key offset to 0 
51 00A6 C9 9A 0061 $89 20$: MOVZBL IRBS$B_KEYSZ(R9) ,R1 3; compute the number of bytes in the 
-) a > oe”; tt: $B SUBB2 = R2,R1 3; search key remaining to be compared 
6644 51 491 0069 383 CMPB R1,(R6)CR4I ; use the minimum of the search key 
04 1B Q06D 384 BLEQU 308 ; bytes remaining and the current record 
51 6644 9A Boge 30? MOVZBL (R6)CR4],R1 ; key size as the key comparison size 
6B42 02 A644) «651 «4029 «+0073 «6387 308: CMPC3) =R1,2(R6)CR4],(R11)CR2] ; if the search key is equal to or less 
65 13 QO7A 388 BEQLU 1008 ; than the current record key process 
59 1A O007C 389 BGTRU 90$ : accordingly, otherwise position to the 
50 01 9A OO7E 390 MOVZBL #1,R0 3; next record in the bucket 
0081 391 
0081 392; net , f 
0081 3935 ; Position to the record which follows the current record in the bucket. Before 
0081 394 ; per taraine this positioning, save the address of the old current record if it 
0081 395 ; was zero front compressed. 
0081 $09 : 
0081 97 : 
s. tt FB st H $05 40$: SUBL3 R11,R3,R2 3 compute terminating search key offset 
01 A644 «6995 0085 400 50S: TSTB 1(R6)CR4) : if the key of the current record is 
12 0089 401 BNEQU ; 0 front compressed, save its address 
0098 c9 656 Db0 it 186 OVL R6,IRBSL_LST_NCMP(R9) ; before positioning to the next record 
OC AS 95 0090 404 558: TSTB =©BKTS$B_LEVEL(RS5) ; if this is an index bucket then next 
OA 13 0093 405 EQL 3: record position equals the current 
53 66 9A 0095 406 MOVZBL (R6),R3 3; record position + current record key 
56 02 A643 «—«9E «(0098 = 407 MOVAB 2(R65CR3],R6 ; size + two bytes for the key 
11 4943 138 BRB 62$ 3; compression overhea 
a co S098 410 60$: ADDL2 R4,R6 ; otherwise, next record position equals 
53 sOFE 4 3C OOA2 411 MOVZWL oe 3 current record position + record 
ae co BRA8 216 ADDL2 R5,R6 : overhead + record size 
0094 (9 D6 OOA9 414 62% INCL IRB$L_REC_COUNT(R9) ; increment the record counter 
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AD 416; : 

AD 119 ; There are a number of circumstances under which the result of the comparison : 

QAD 418 ; between the key of the new current record and the search key is known or can $ 

| QOAD 138 ; be quickly determined without actually performing the comparison. : 

| OAD 421 ; 1. If RMS has positioned to the end of the bucket, or to a RRV record within | H 

Bhas : ¢ 3 a primary data bucket then the search is terminated with a GT status. 5 

| QOAD 424 ; 2. If the search key was found to be equal to the key of the last record, but : 

OAD 425 ; the front compression of the key of the current record is less than the F 

OAD 426; size of the search key, then the search key will be less than the key of F 

| BpaD 2 ; new current record and it is processed as such. 3 

QOAD 429 ; 3. If the search key was found to be equal to the key of the last record, and 3 

QOAD 430 ; the front compression of the key of the new current record is either equal : 

QOAD 431 ; to or greater-than the size of the search key, then the search key will ; 

OQOAD $36 5 also be equal to the key of the new current record and is processed as : 

QOOAD 433; such. The front compression of the key of the new current record maybe : 

OOAD 434 ; greater-than the size of the search key because RMS maybe performing a F 

QOAD 435; eneric search with a search key smaller in size than the full size of a : 

a. £38 3 ey for this key of reference. $ 

QOAD 438 ; 4. If the search key was found to be greater-than the key of the last record, : 

OOAD 439 ; and the front compression of the key of the new current record is 3 

QOOAD 440; pa lO ge the position in the search a where the Last comparison $ 

QOAD 441 ; erminated, then the search key will also be greater-than the key of the $ 

ores tt$ : new current record and RMS proceeds to position to the next record. 3 

QOAD 444 ; 5. If the search key was found to be greater-than the key of the last record, 3 

QOAD 445 ; but the front compression of the key of the new current record is less-than : 

OOAD 446 ; the position in the search ner where the Last comparison terminated, then : 

QOAD 447; the search key will be less-than the key of the new current record and is ; 

syd rr ; processed as such. : 

QOAD 450 ; In the remaining circumstances a direct comparison between the key of the new ; 

as $3) ; current record and the search key is required, and is performed. 3 

QOAD 43 : 

58 56 D1 QOAD 454 CMPL R6,RB ; if RMS is at the end of the bucket : 

Oc 1€ OO0BO 455 BGEQU 65$ ; or has positioned ti a RRV record 3 

01 AS 89 set 456 BISBS BKT$B_INDEXNO(RS),- : in a primary data bucket then 3 

51 OC AS 00B5 457 BKT$B~LEVEL(RS) Ri : go return a status of GT (search key : 

07 12 O0B8 458 BNEQU 70$ 3; greater than ail the records in the 3 

03 66 =03 4 Rhee 459 BBC #IRCSV_RRV, (R6) ,70$ : bucket) F 

0088 1 Bpee 299 65$: BRW 140$ F 

50 D5 00C1 462 70$: TSTL RO ; if the last comparison's result was GT 3 

09 14 O00C3 46 BGTR 80$ ; then go decide between cases 4 or 5 or 3 

O9¢$ +e} ; whether a key comparison must be made 3 

52 01 A644 91 OCS £88 1(R6)CR4],R2 : if CASE 2 holds true process as 3 

08 1F OQOCA 6 BLSSU 90% ; less-than, but if CASE 3 holds true : 

5 11 Ooce $08 115$ 3; process as equal 3 

52 01 A644 91 43 136 80$: CMPB 1(R6)CR4),R2 : if CASE 4 holds true 99 pes ition to : 

BO 1A 00D 471 BGTRU 30$ ; the next record, but if CASE 5 holds : 

BA 13 0005 472 BEQLU 0$ 3; true process as less-than otherwise 3 
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: RMS has positioned to a record whose key is greater than that of the search 
; key. Return this status. 


50 01 CE 90$: MNEGL #1,R0 3 setup the status in RO to be LT and 
SSB #IRBSV_LAST_GT,- 3 save that the result of this search 
IRBSW_SRCHFCAGS(R9) ; was GT in case the search must resume 
6D =s11 BRB 150$ ; go return this status 


On an actual search key - current record — comparison, the parts of the 

key that were compared were found to be equivalent. This does not necessairly 
mean that the two keys are in fact identical. If the size of the search key 
(including those characters front compressed but not rear-end truncated) is 
less than or equal to the size of the key of the current record, then in fact 
the two keys are identical, and are processed as such. However, if because of 
rear-end truncation the search key is eeter in size then the key of the 
current record, then the comparison between the two keys must be continued. 
This is done by extending the key of the current record by the last character 
present, and comparing the remaining bytes in the search key with it alone. If 
the two keys are still identical ae 4 are processed as such; otherwise, they 
are processed peenese on whether the search key is greater-than or 
less-than the key of the current record. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge 


00 
51 01 A644 = 664 
51 
53 


3 SS | 2 QOOOCOOOCCOCOC COO CCOCOCCOOCOSOOOOOOOOOOCOOOCOOOOOOOoOO 
——QOCOCO NN HH VMMMMMMMMMMMMMmMmMmmMmmmmMmmmMmmmooOVVIVVTVTTT 
fa ZOO LL NWD VW "SO Oe SS TD PP NNN 
PDUPVPVPVIVPVSUSUSVSTSV SSVI EB Be BS BS BP PPP PPP PPP PLL EEE 
St | | “QOD DODOO0OOO OOOO OOO O00 0000 0900090090008 INI NNN 
AUS WN ($9 OO NAUEWN OC OD NA UE WIN 0 OD NAU EWN O OONOUE Ww 


COOCCOCCOCSCSOOOOOOOOSOOOCOOOSOOOOOOOOOOOOOoOSoO 


4 81 100$:  ADDB3 (R6)CR4],1(R6)CR4],R1 =; if the size of the search key is 
OOAG C9 91 CMPB IRB$B_KEYSZ(R9) ,R1 ; less-than or equal to the size of the 
28 «1B BLEQU§ 1108 ; current record's key, process as equal 
ie: oe Bee SUBL3 R11,R3,R2 ; determine where in the search key the 
534 CLRL R3 ; comparison stopped and how many search 
53 O00A6 C9 52 = 83 SUBB3 R2,IRBSB_KEYSZ(R9),R3  ; key bytes remain to be compared 
51. 6644 9A MOVZBL (R6)CR4),R1 ; compute the offset to the Last 
51 01 A441 GE MOVAB. 1(R4)CR14,21 3; character in the current record's key 
6641 6641 01 2D CMPCS) = #1, (R6) CR1],(R6)CR1],- |; compare the remaining search key bytes 
6B42 R3, (R11) CR2I 3; with the current record key's las 
C8 «1A BGTRU 90 ; character, and continue processing 
06 13 BEQLU 1108 ; depending upon whether t ey are 
50 01 QA MOVZBL #1,R0 : identical, the search key is less-than 
FF6A = 31 RW 40$ 3; the current record's key or vice versa 
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11 


< 
2 


The soeren key has been found to be identical with the key of the current 
record. 


If the goal of the search is to find an equal match then RMS is done and 
should return such a status provided the record is not a primary data record 
marked deleted. In such an instance, RMS continues the search with the next 
primary data record in the bucket. 


If the goal of the search is to find a greater-than match, then RMS will also 

continue the search with the next record in the bucket. However, before 

pons tarine the search, if RMS is positioning for insertion within a data 

; bucket, then as the key of the new record will be identical to the key of the 

current record, RMS saves the address of the current record as the last record 

seen in the data bucket with this key value. RMS will also indicate that a 

; a record with a ay Sve \ lente to that of the new record has been seen “| 
setting a bit in the IRAB, provided the current record is not marked deleted, 

and it will indicate that some record with this key value has been seen by 

setting another bit in the IRAB, regardless of the setting of the current 


7 SeGe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se 
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Ok a a a th 8 hh 8 
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P] 
5 
5 
5 
5 
5 
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P) 
P) 
5 
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5 
5 
5 
5 
5 
5 
5 
5 
5 
P] 
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PDD PPA SBS BS EWN innonononononononon 
MO ONAN WIN OOO NAN E WN O OO NAME WN OOO NOun Wn O00 


AS 00 ONS ODD OO Ff $98 OO 


record. 
10$: CLRL RO ; setup the status in RO to be equal 
6— 0D TSTL (SP) :; if the a of the search is an equal 
| BEQLU 150% ; match then go an EQ status, otherwise 
ie * SUBL5 = R11,R3,R2 3; compute terminating search key offset 
Oc AS 9 115$:  TSTB BKTS$B_LEVEL(R5) ; if rms is not currently positioning 
. oe BNEQU§ 1308 : for insertion within a data bucket, 
00 6€CC€ BBC #IRBSV_POSINSERT,- ; then continue the search for a record 
1B 42 Ad IRB$W_SRCHFLAGS(R9),130$; with a key greater-than the search key 
SSB #IRBSV_DUP_KEY,=- 3; otherwise, save the address of the 
IRB$W_SRCHFLAGS(R9) ; current record, set a bit indicatin 
4C AD = 56—S—«=OO MOVL R6,1RB$L_LST_REC(R9) 3 that a duplicate key was encountere 
01 A5 95 TSTB. «=—- BK T$B_INDEXNO(RS) : during the search, and indicate that 
08 12 BNEQ 120$ ; duplicates have been seen during the 
09 66 bg EO BBS #IRCSV_DELETED, (R6),130$; search if the current record is a 
66 0 EO BBS #IRCSV_RU_DELETE, (RO) ,~ ; SIDR, or if the current record is a 
05 130$ ; primary data record that is not 
80 8F 88 120$:  BISB2 #IRBSM_DUPS_SEEN,- ; marked either deleted or deleted 
44 A9 1RBSB_SPL_BITS(R9) ; within a Recovery Unit 
FF3C O31 130$:  BRW 0$ 
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i 
| 149 64 
149 65 ; 
149 6 ; RMS has found that the search key is grester=toen the key of every record 
149 ? ; in the bucket. In this case RMS will immediately terminate the search with 
149 3 ; @ greater-than status. 
| 129 390° | 
50 01 9A 0149 71 140$: MOVZBL #1,R0 ; go terminate the search with a status 
| 15 11 O14¢ a BRB 166$ ; Of greater-than , | 
| 126 fi | 
| 14E 75 ; Return the status of the search to the caller of this routine. If the bucket 
14E 6 3; that was searched was a data level bucket, and RMS was not gents Sening for 
O14E 77 ; insertion, then save the address of the current record as the last zero 
014E 78 ; front compressed record encountered provided it is zero front compressed 
Q14E 579 ; and there is a record to be returned (ie - the status of the search is not | 
O14E 580 ; greater-than). 
O14E 581 ; 
O14E 286 
OC AS 95 O16E 585 1508: TSTB BKTS$B_LEVEL(R5) ; immediately return the appropriate 
10 12 $123 eee BNEQU§ 160% ; status if this is not a data bucket 
00 £0 0153 Hn BBS #IRBSV_POSINSERT,- ; if RMS is positioning for insertion 
OB 42 A9 b128 ope IRB$W_SRCHFLAGS(R9),160$; then immediately return status 
01 A644 OoO9Ss«C0158 259 TSTB 1(R6)CR4J ; if the current record is zero front 
12 015C 590 BNEQU 16 3; compressed then save its address as 
0098 (9 56 »0 FA 44 MOVL R6,IRBSL_LST_NCMP(R9) ; the Last seen zero-compressed record 
0163 395 160$:  POPR #*M<R1,R2,R3,R4,R8,R11> ; restore the registers used and 
05 0167 594 RSB 3 return 
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-SBTTL RMSFRNT_CMPR = Compute a Record's Front Compression Count 


FUNCTIONAL DESCRIPTION: 


This routine's responsibility is to take a proposed point of insertion 
of a new record, and determine the amount of front compression the key 
of the new record will have if it is inserted there. The record maybe 

3 er ieery data, an index, or a SIDR record. There are two assumptions 

which this routine makes: 


1. The keys of the records in the bucket are in pone order and are 
correctly compressed (ie - they are as compressed as they can be for 
their place in the bucket). 


2. Each record in the bucket is preceeded by the same number of bytes of 
overhead, a constant for the type of file and type of bucket, and 
key compression overhead always consists of two bytes - the first the 
size of the key that is present, and the second the number of bytes 
of front compression. 


INPUT PARAMETERS: 
R6 - address where new record is to be inserted 
R8 - address of key of new record 
(including key compression overhead) 


IMPLICIT INPUT: 


R5 - BKT_ADDR - address of primary/index/SIDR bucket 
BKT$B_INDEXNO - index number of bucket 
BKTSB_LEVEL - level of bucket 

R7 - IDX_DFN - address of index descriptor 
TDX$B_KEYSZ - size of key 

R9 - IRAB - address of IRAB 
IRBSL_LST_NCMP - address of last key not compressed 
IRBSL_REC_COUNT - number of preceeding records 

R10 - IFAB - address of IFAB 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUT: 
NONE 


ROUTINE VALUE: 

RO - number of characters which can be front compressed 
SIDE EFFECTS: 

NONE 
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16 53 
16 54 RMSFRNT_CMPR:: 
9h 8F BB 016 55 PUSHR #*M<R1,R2,R3,R4,R11> 3 save the working registers 
094 ¢ DD 18 928 PUSHL IRBS$L_REC_ COUNT (R9) 3; save the record count 
E 04 \f 636 CLRL -(SP) ; 0 is current front compression guess 
17 659 ; 
17 660 ; If the size of the 7 is zero bytes, or if the new record is to be inserted 
017 661 ; at the seginn ine of the bucket, then go return indicating that the key of the 
017 006 3 new record will not have to be front compressed. 
017 665 ; 
Bie 664 
68 95 017 665 TSTB (R8) : 
ee Ht 008 BEQLU 50$ ; 
51 55 OEF C1 0176 668 ADDL3 #BKTSC_OVERHDSZ,R5,R1 ; if the new record is to be inserted as 
51 56 D1 O17A 669 CMPL R6,R1 ; the first record in the bucket then 
54 1B 0170 670 BLEGU 50$ ; go return 0 bytes front compression 
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; if the new record's key size is zero 
; then return 0 bytes front compresion 
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Before a determination can be made of the front compression that will be 
required for the key of the new record there are some necessary preparations. 


RO = Size of the key of the current record in the bucket. 


R1 = Set to the type of bucket for determining the amount of record overhead. 
Offset to the last character of the current record's key. 


R2 = Offset to the character in the key of the new record where the 

Number of bytes of the new record's key remaining to be compared with 
the key of the current record. 
Number of bytes of record overhead, not including key compression bytes. 
R5 = Address of the beginning of the bucket in memory. 

R6 = Address in memory of the current record in the bucket. 


address where the new record is to be 


; save the point of insertion in R11 and 


initialize REC_ADDR to the address of 
the Last zero-compressed record 


if this is an index bucket, then as 
index records do not contain any 
overhead initialize R4 to 0, and skip 
call to determine record overhead 


if this is a primary data bucket, 
setup R1 with a 0, else it is a SIDR 
bucket and a -1 is placed in R1 


694 
695 
696 
344 R7 = Addre s of the index descriptor. 
699 ; R8 =- Address of the key of the new record to be inserted. 
ot R9 = Address of the IRAB. 
P R10 - Address of the IFAB. 
705 ; R11 = Address in memory of the bucket 
706 inserted. 
707 
708 

DO 709 MOVL R6,R11 

DO ny MOVL IRBSL_LST_NCMP(R9) ,R6 
71 

9A a8 MOVZBL BKTS$B_LEVEL(RS),R1 

13 714 BEQLU 108% 

D4 4 715 CLRL R4 

11 3 rig BRB 30$ 

95 9 718 10$: TSTB BKTS$B_INDEXNO(R5) 

13 9 719 BEQL 20$ 

CE , 9 MNEGL #1,R1 

30 9 7 ¢ 20$: BSBW RMSREC_OVHD 

DO 9 7 MOVL RO,R4 


determine the amount of overhead in 
each record and store it in R4 


GO a OOOOOOOoooEEEOEeEeEeEeEeEe 


cs 
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F 


>. 


| 
| 
The records in the bucket are assumed to be in aeons order and correctly | 
compressed. Therefore, if RMS's current best guess for the front compression 
of the key of the new record is less then the front compression count of the 
key of the current record, then there will be no need to compare the two keys. 
because the current record's key can not contribute any more to the 
compression of the key of the new record then was contributed by the key of 
last record the new record's key was compared with. Only if the current front | 
compression estimate and the front compression count of the current record are 
the same will it be necessary to compare the two keys, because only then can | 
the key of the current record influence the compression of the key of the new | 


record. 
01 A644 gf 91 30$: CMPB (SP),1(R6)CR4] ; if compression counts arn't identical 
2 12 BNEQ 40$ 3; then go position to the next record 


Compare the key of the new record with the key of the current record. Because 
the current record's key is fully compressed, rear-end truncated as well as 
front compressed, it will be necessary to extend it by its last character as 
necessary. Furthermore, the comparison starts in the key of the new record, 
not with its first character, but with the first character past those RMS has 
already determined will be front compressed. 


SSL NNN 
WR OC OONAU EWN (0 OD NAUE WN 0 ODNAOUE WN - OOONOU 


OOOOCDDODODDOP SEY rrr r rrr rrr rrowwouowowowowowownowowowowowvon i 


felelelelelelejelelelaleleleleleleleleleleleleloelelelelolelelelolelelelelelolalejlalolo) 
DOL FDO OOD in i 8 8 BD DED DDD DDD Ds Be FF Fd FE ee FF 9 Pe PP oe 


a  — — — - - ss > 2 49 > — 2 ss 9 — > os 2s bs 1s © 2) — 9 as © — 9 9 2) 2 a 1 a a a a 


50 6644 9A MOVZBL (R6)CR4],R0 ; setup RO and R1 with the size of and 
51 01 A044 = O9E MOVAB 1(RO)CR45,R1 ; offset to the last character in the 
; current record's key respectively 
.. « MOVL (SP) ,R2 ; setup R2 and R3 with the offset to 
53 20 A? 9A MOVZBL IDX$B_KEYSZ(R7),R3 ; the first character to be compared — 
SUBL2 R2,R3 ; and the number of bytes to compare in 
3; the new record's key respectively 
535 6641 02 A644 50 2D 76 CMPC5 e908) ERS CRO ERTI © ; compare the ney of the new record 
02 A842 oo? R3,2(R8)CR2) ; with the key of the current record 
ee. 3 3 g 765 SUBL3 R8,R3, (SP) ; compute a new best guess for the front | 
e 2: 766 SUBL2 #2,(SP) 3; compression of the new record's key 
| 
| 


; correcting for compression overhead 
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Increment the current record pointer to the next record in the bucket. If the 
address of the new current record is the same as the address of the point 

of insertion of the new record, then go return the number of bytes the key of 

; the new record will have to be front compressed. Otherwise, go determine 

whether the front compression of the key of the current record is the same 
as RMS's current guess of the front compression of the key of the new record, 

and the two ners will have to be compared, or whether the latter is : 
greater-than the former and they will not have to be compared. 


LaLa 
OOOO OW WOO WOOO00O NIN NNN NNO 
WR 0 ODNAUE WI - OOONOAUE WOO 


FE32" 30 40$: BSBW RMSGETNEXT_REC ; position to next record in the bucket | 
58 456~—«CO CMPL R6,R11 ; if RMS has positioned to the point of 
cc OoO*d'F BLSSu 308 ; insertion then returr, else continue | 
: Return the number of bytes the the key of the new record will have to be front 
; compressed if the new record is to go at the indicated place of insertion. 
50 8EDO 50$: POPL RO ; load front compression count into RO 
0094 C9 BEDO POPL IRBSL_REC_COUNT(R9) ; restore the record count 
OBIE 8F a ? sy #*M<RT,R27R3,R4,R11> 3 posters the working registers and 
3; return 
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Symbol table gr eee13be $ais6:38 PANS eACTANScMPReS man;1 29° (38, ) 
j 


The working set Limit was 1350 pages. 


$$.PSECT EP = 90 3 
SSRMSTEST = A ; 
$SRMS_PBUGC = 8 3 
SSRMS_TBUGCHK z 3 
SSRMS_UMOD = 8 4 3 
BKTS$B_INDEXNO = 1 3 
BKT$B_LEV = 000 C : 
BKTSC_OVERHDSZ = 000 E : 
BKTSW_FREESPACE = 000 33 | 3 
1 KEYS = 0 F 
1F BSW_KBUF SZ = 0B4 3 
KEYS = $ BRA6 F 
RB$B_SPL_BITS 4 3 
IRBSL_KEYB = 44444 ; 
IRBSL_LST_NCMP = 4444 8 $ 
IRBSL_LST_RE = 0000004C | ; 
IRBSL_REC_ COUNT = 4444 4943 ; 
RBSM_DUPS SEEN = 0000 0°0 3 
IRBSV_DUP_REY = 0000000 | 3 
IRBSV_LAST GT = 0000000A 3 
IRBSV_POSINSERT = 0000000 3 
IRBSW_SRCHFLAGS = 0000004 3 
IRCSV_DELETED = 0000000 3 
IRCSV_RRV = 0000000 3 
IRC$V_RU_DELETE = 00000005 3 
RMSFRAT_CMPR 00000168 RG 01 3 
RMSGE TNEXT_REC teeeeeee X01 3 
RMSREC_OVHD seeceree =X 01 : 
RMSSRCA_CMPR 00000000 RG 01 | : 
geese sesesecnw ences + b 

! Psect synopsis ! | : 

PSECT name Allocation PSECT No. Attributes | : 
. ABS, 00000000 < 0.) OO ¢ O.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 3 
RMSRMS3 QOOO01EO (¢ 480.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 3 
SABSS 00000000 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE : 
eww ren remem em meme meme mony | 3 

: Performance indicators : : 

bestow ree eee eee He eee ee ee eH Se ® 

. 

Phase Page faults CPU Time Elapsed Time | : 
Initialization 3 0:00:00.07 00:00:01..14 | : 
Command processing 111 0:00: 2 0: 8798-8 3 
Pass 240 0:00:05.9 a8 219. 3 
Symbol table sort 0 0:00:00.7 0: ‘t 1.4 } 3 
Pass 2 164 0:00: +06 :00:06.21 3 
Symbol table output 5 0:00:00. :00:00.13 ; 
Psect synopsis output 1 :00: 3 3 : 3: ‘ é 
Cross-reference output 0 7:00:00. : e- 0 3 
Assembler run totals 554 :00:09.71 0:00:35.89 : 


34246 bytes_(67 pages) of virtual memory were used to buffer gue intermediate at - 

There were 30 pages of symbol peers ng al =" ¢¢ to hold 509 non-local -s 4 local symbols. 
795 source Lines were read in Pass 1, prod using 4 object records in Pass 2. 

6 pages of virtual memory were used to define macros. 


Macro Library name Macros defined 


een Ree Nh SNe a che 
“$255$DUA SYS.OBJJLIB.MLB;1 

“$255$DUA SESvSL IBISTARLET. MLB;2 

TOTALS (all Libraries) 11 
597 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:RMSCMPRSS/OBJ=OBJ$:RM3CMPRSS MSRC$:RMSCMPRSS/UPDATE=(ENHS: RM3CMPRSS) +EXECML$/LIB+LIB$:RMS/LIB 
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